10 BO=53280:BA=53281:VO=54296:LF=54272:HF=54273:WV=54276:AD=54277:SR=54278
20 PRINTCHR$(14):POKEBO,12:POKEBA,12:PRINT"[147]":GOSUB650
30 PRINTTAB(14)"[158]$$$$$$$$$$$$$":PRINT:PRINTTAB(14)"$":PRINTTAB(26)"[145]$"
40 PRINTTAB(16)"[195][200][197][195][203][194][207][207][203]"
50 PRINTTAB(14)"$":PRINTTAB(26)"[145]$":PRINT
60 PRINTTAB(14)"$$$$$$$$$$$$$"
70 FORX=1TO3600:NEXTX
75 GOSUB690
76 POKEBO,6:POKEBA,6
80 PRINT"[147][201]F THERE ARE INTEREST OR SERVICE":PRINT
90 PRINT"CHARGES ON THE [194]ANK [211]TATEMENT, WRITE":PRINT
100 PRINT"THEM INTO THE [195]HEQUE [194]OOK [210]ECORD."
110 PRINT"[208]RESS "CHR$(34)"[208]"CHR$(34)" TO PROCEED[146]";
120 GETK$:IFK$<>"P"ANDK$<>"[208]"THEN120
125 GOSUB690
126 POKEBO,12:POKEBA,12
130 PRINT"[147][155][208]UT A RED "CHR$(34)CHR$(186)CHR$(34)" AGAINST EVERY CHEQUE";
140 PRINT" AND":PRINT:PRINT" DEPOSIT IN THE [195]HEQUE [194]OOK [210]ECORD THAT":PRINT
150 PRINT"IS LISTED ON THE [194]ANK [211]TATEMENT.":POKE55548,2
170 PRINT"[208]RESS "CHR$(34)"[196]"CHR$(34)" WHEN DONE";
180 GETK$:IFK$<>"D"ANDK$<>"[196]"THEN180
185 GOSUB690
186 POKEBO,9:POKEBA,9
190 PRINT"[147][158][146][212]YPE THE CLOSING BALANCE SHOWN ON THE"
200 PRINT:PRINT"[194]ANK [211]TATEMENT, AND PRESS [210][197][212][213][210][206][146]."
210 INPUT"[193]MOUNT";S
215 GOSUB690
218 POKEBO,6:POKEBA,6
220 PRINT"[147][212]YPE THE CURRENT BALANCE SHOWN ON YOUR":PRINT
230 PRINT"[195]HEQUE [194]OOK [210]ECORD, AND PRESS [210][197][212][213][210][206][146]."
240 INPUT"[193]MOUNT";R
245 GOSUB690
246 POKEBO,9:POKEBA,9
250 PRINT"[147][193]FTER THE PROMPT, "CHR$(34);
260 PRINT"[196]EPOSIT?"CHR$(34)", TYPE THE":PRINT
270 PRINT"AMOUNT OF ANY CREDITS OR DEPOSITS THAT":PRINT
280 PRINT"ARE NOT ON THE [194]ANK [211]TATEMENT."
290 PRINT"[208]RESS ANY KEY[146]";
300 GETK$:IFK$=""THEN300
310 PRINT"[147]"
312 POKEBO,12:POKEBA,15
320 GOSUB690:INPUT"[144][196]EPOSIT";D
330 S=S+D
340 GOSUB690:PRINT"[154][193]NY MORE DEPOSITS?":PRINT
350 PRINT"[208]LEASE TYPE [217][146] OR [206][146]."
360 GETK$:IFK$=""THEN360
370 IFK$="Y"ORK$="[217]"THEN320
375 GOSUB690
376 POKEBO,9:POKEBA,15
380 PRINT"[147][193]FTER THE PROMPT, "CHR$(34);
390 PRINT"[195][200][197][209][213][197]?"CHR$(34)", TYPE THE":PRINT
400 PRINT"AMOUNT OF ANY CHEQUES THAT ARE NOT ON":PRINT
410 PRINT"THE [194]ANK [211]TATEMENT."
420 PRINT"[208]RESS ANY KEY[146]";
430 GETK$:IFK$=""THEN430
440 PRINT"[147]"
450 GOSUB690:INPUT"[195]HEQUE";C
460 S=S-C
462 GOSUB690
470 PRINT"[154][193]NY MORE CHEQUES?":PRINT
480 PRINT"[152][208]LEASE TYPE [217][146] OR [206][146]."
490 GETK$:IFK$=""THEN490
500 IFK$="Y"ORK$="[217]"THEN450
505 GOSUB690
506 POKEBO,9:POKEBA,9:PRINT"[147]"
510 PRINT"[158][212]HE CLOSING BALANCE IN YOUR [195]HEQUE":PRINT" [194]OOK [210]ECORD SHOULD BE:"
511 S$=STR$(S)
512 IFS=INT(S)THENS$=STR$(S)+".00"
513 IFLEN(STR$(S))=LEN(STR$(INT(S)))+2THENS$=STR$(S)+"0"
514 IFLEN(STR$(S))>LEN(STR$(INT(S)))+3THENS$=LEFT$((STR$(S)),(LEN(STR$(INT(S))))+3)
521 PRINT"$";RIGHT$(S$,(LEN(S$)-1))
530 PRINT"[201]T ACTUALLY IS:":R$=STR$(R)
531 IFR=INT(R)THENR$=STR$(R)+".00":GOTO541
532 IFLEN(STR$(R))=LEN(STR$(INT(R)))+2THENR$=STR$(R)+"0"
533 IFLEN(STR$(R))>LEN(STR$(INT(R)))+3THENR$=LEFT$((STR$(R)),(LEN(STR$(INT(R))))+3)
541 PRINT"$";RIGHT$(R$,(LEN(R$)-1))
550 B=S-R
560 IFB=0THENGOTO630
570 IFB<0THENGOTO610
580 PRINT"[212]O CORRECT THE [195]HEQUE [194]OOK [210]ECORD,      WRITE A ";
590 PRINTCHR$(34)"DEPOSIT"CHR$(34)" ENTRY OF:"
591 B$=STR$(B)
592 IFB=INT(B)THENB$=STR$(B)+".00":GOTO601
593 IFLEN(STR$(B))=LEN(STR$(INT(B)))+2THENB$=STR$(B)+"0"
594 IFLEN(STR$(B))>LEN(STR$(INT(B)))+3THENB$=LEFT$((STR$(B)),(LEN(STR$(INT(B))))+3)
601 PRINT"$";RIGHT$(B$,(LEN(B$)-1)):GOTO800
610 PRINT"[212]O CORRECT THE [195]HEQUE [194]OOK [210]ECORD,      WRITE A  ";
620 PRINTCHR$(34)"CHEQUE"CHR$(34)" ENTRY OF:"
621 RS=R-S:IFRS<.01THENRS=0:RS$=STR$(RS)
622 IFRS=INT(RS)THENRS$=STR$(RS)+".00":GOTO626
623 IFLEN(STR$(RS))=LEN(STR$(INT(RS)))+2THENRS$=STR$(RS)+"0"
624 IFLEN(STR$(RS))>LEN(STR$(INT(RS)))+3THENRS$=LEFT$((STR$(RS)),(LEN(STR$(INT(RS))))+3)
626 PRINT"$";RIGHT$(RS$,(LEN(RS$)-1)):GOTO800
630 PRINT"[212]HE CLOSING BALANCE WRITTEN IN YOUR"
640 PRINT"[195]HEQUE [194]OOK [210]ECORD IS THEREFORE":PRINT" CORRECT.[146]":GOTO800
650 FORSI=LFTOVO:POKESI,0:NEXTSI:RETURN
690 POKEVO,15:POKEAD,9:POKESR,0:POKEHF,64:POKELF,188:POKEWV,17
700 FORTM=1TO200:NEXT:POKEWV,16:FORTM=1TO100:NEXT:GOTO650
800 PRINTTAB(6)"[208][210][197][211][211] [193][206][217][160][203][197][217][160][212][207][160][197][206][196] [208][210][207][199][210][193][205]"
810 GETK$:IFK$=""THEN810
820 PRINT"[147]"
830 PRINT"LOAD"CHR$(34)"MENU"CHR$(34)",8"
840 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
850 POKE631,13:POKE632,13:POKE198,2:END